Public Class frmBUsuario
    Dim MiCursorRaton As New GestProyecto

    Private Sub frmBUsuario_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim MiGestDatos As New GestDatos

        MiCursorRaton.CursorRaton(True)

        Dim RutaConexion As String
        RutaConexion = "Data Source =" & System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) & "\DBGestion.sdf;"

        Dim LineaSQL(0) As String
        Dim Tablas(0) As String

        LineaSQL(0) = "Select CodUsuario, Usuario From Usuarios"
        Tablas(0) = "Usuarios"

        MiGestDatos.ConextarBD(RutaConexion, LineaSQL, Tablas)


        MiCursorRaton.CursorRaton(False)
        

        Dim MiEncabezados As New GestDatos.Emcabezados

        MiEncabezados.add(New GestDatos.Emcabezado("CodUsuario", "CODIGO", 60))
        MiEncabezados.add(New GestDatos.Emcabezado("Usuario", "AGENTES", 154))


        MiGestDatos.DatosGrid(grdUsuarios, MiEncabezados, "Usuarios", "")

        MiCursorRaton.CursorRaton(False)

    End Sub


    Private Sub grdUsuarios_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdUsuarios.Click

        MiCursorRaton.CursorRaton(True)

        grdUsuarios.Select(grdUsuarios.CurrentRowIndex)

        MiCursorRaton.CursorRaton(False)

    End Sub

    Private Sub grdUsuarios_DoubleClick1(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdUsuarios.DoubleClick

        MiCursorRaton.CursorRaton(True)

        frmInicio.MifrmLogin.txtUsuario.Text = grdUsuarios.Item(grdUsuarios.CurrentRowIndex, 0).ToString

        MiCursorRaton.CursorRaton(False)

        Me.Dispose()

    End Sub

    Private Sub mnuSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSalir.Click

        Me.Dispose()

    End Sub

End Class